home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 March / Macworld (1998-03) (Disk 1).dmg / Shareware World / Info / For Developers / GhostScript 5.10 / MacGS-510 / files / gs_pdf.ps < prev    next >
Text File  |  1997-09-27  |  20KB  |  647 lines
  1. %    Copyright (C) 1994, 1996, 1997 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % gs_pdf.ps
  19. % ProcSet for PostScript files created by the PDF to PostScript converter.
  20. % This ProcSet requires only a Level 1 interpreter, unless fonts other
  21. % than ordinary Type 1 or Type 3 fonts are involved.
  22.  
  23. % pdf2ps copies this file from %BEGIN to the end.
  24.  
  25. %BEGIN
  26. % Patches for Level 1 printers and non-Ghostscript interpreters.
  27. mark
  28. /currentglobal { false }
  29. /setglobal { pop }
  30. /packedarray { array astore readonly }
  31. /setcmykcolor {
  32.   1 exch sub
  33.   4 -1 roll 1 exch sub 1 index mul
  34.   4 -1 roll 1 exch sub 2 index mul
  35.   4 -2 roll exch 1 exch sub mul
  36.   setrgbcolor
  37. }
  38. /sethalftonephase { pop pop }
  39. /setpagedevice {
  40.   statusdict /pageparams get exec
  41.   4 index /PageSize .knownget { aload pop 6 -2 roll pop pop 4 2 roll } if
  42.   4 index /Orientation .knownget { 3 -1 roll pop exch } if
  43.   statusdict /setpageparams get exec
  44.   /PageOffset .knownget { aload pop translate } if
  45. }
  46. /setoverprint { pop }
  47. /setstrokeadjust { pop }
  48. /.copydict { dup 3 -1 roll { put dup } forall pop }
  49. /.dicttomark {
  50.   counttomark 2 idiv dup dict begin { def } repeat pop currentdict end
  51. }
  52. /.knownget { 2 copy known { get true } { pop pop false } ifelse }
  53. /.setdefaultscreen { }
  54. counttomark 2 idiv {
  55.   1 index where { pop pop pop } { bind executeonly def } ifelse
  56. } repeat pop
  57.  
  58. currentglobal true setglobal
  59.  
  60. % Define pdfmark.  Don't allow it to be bound in.
  61. % Also don't define it in systemdict, because this leads some Adobe code
  62. % to think this interpreter is a distiller.
  63. % (If this interpreter really is a distiller, don't do this.)
  64. systemdict /pdfmark known not
  65.  { userdict /pdfmark { cleartomark } bind put } if
  66.  
  67. % This ProcSet is designed so that it can be used either to execute PDF
  68. % (the default) or to convert PDF to PostScript.  See ! and ~ below.
  69.  
  70. userdict /GS_PDF_ProcSet 127 dict dup begin
  71.  
  72. % ---------------- Abbreviations ---------------- %
  73.  
  74. /bdef { bind def } bind def
  75.  
  76. % ---------------- Operator execution ---------------- %
  77.  
  78. % We record "operator" names in a dictionary with their argument counts,
  79. % so that they can easily be redefined later to write PostScript in
  80. % addition to (or instead of) being executed.
  81.  
  82. /numargsdict 100 dict def
  83. /!        % <procname> <proc> <numargs> ! -
  84.  { //numargsdict 3 index 3 -1 roll put def
  85.  } bdef
  86. /~        % <procname> <opname> <numargs> ~ -
  87.  { exch cvx 1 packedarray cvx exch !
  88.  } bdef
  89.  
  90. % ---------------- Graphics state stack ---------------- %
  91.  
  92. % PDF adds a number of parameters to the graphics state.
  93. % We implement this by pushing and popping a dictionary
  94. % each time we do a PDF gsave or grestore.
  95. % The keys in this dictionary are as follows:
  96. %    self            % identifies the dictionary as one of ours
  97. %    Show
  98. %    TextOrigin        % origin of current line, in text space
  99. %    TextSaveMatrix        % matrix at time of BT
  100. % (The following correspond directly to PDF state parameters.)
  101. %    FillColor
  102. %    FillColorSpace
  103. %    StrokeColor
  104. %    StrokeColorSpace
  105. %    TextSpacing
  106. %    TextHScaling
  107. %    Leading
  108. %    TextFont
  109. %    TextMatrix
  110. %    TextRise
  111. %    TextRenderingMode
  112. %    WordSpacing
  113.  
  114. /nodict 1 dict def
  115. nodict /self { //nodict } executeonly put
  116. nodict readonly pop
  117.  
  118. /beginpage
  119.  { //nodict 20 dict .copydict begin graphicsbeginpage textbeginpage
  120.  } bdef
  121. /endpage
  122.  { showpage end
  123.  } bdef
  124.  
  125. /graphicsbeginpage { initgraphics  0 g  0 G } bdef
  126.  
  127. /gput        % <value> <key> gput -
  128.  { exch currentdict //nodict eq { /self dup load end 5 dict begin def } if
  129.         % If we're in a Level 1 system, we need to grow the
  130.         % dictionary explicitly.
  131.    currentdict length currentdict maxlength ge %eq
  132.     { currentdict dup length 3 mul 2 idiv 1 add dict .copydict end begin 
  133.     }
  134.    if def
  135.  } bdef
  136.  
  137. /q_
  138.  { gsave //nodict begin
  139.  } bdef
  140. /q /q_ load 0 !
  141. % Some PDF files have excess Q operators!
  142. /Q_
  143.  { currentdict /self .knownget { exec //nodict eq { end grestore } if } if
  144.  } bdef
  145. /Q /Q_ load 0 !
  146.  
  147. % ---------------- Graphics state parameters ---------------- %
  148.  
  149. /d /setdash 2 ~
  150. /i /setflat 1 ~
  151. /j /setlinejoin 1 ~
  152. /J /setlinecap 1 ~
  153. /M /setmiterlimit 1 ~
  154. /w /setlinewidth 1 ~
  155.  
  156. % ---------------- Color setting ---------------- %
  157.  
  158. /fcput        % <color> <colorspace> fcput -
  159.  { /FillColorSpace gput /FillColor gput
  160.  } bdef
  161. /scput        % <color> <colorspace> scput -
  162.  { /StrokeColorSpace gput /StrokeColor gput
  163.  } bdef
  164.  
  165. /csdevgray [/DeviceGray] readonly def
  166. /csdevrgb [/DeviceRGB] readonly def
  167. /csdevcmyk [/DeviceCMYK] readonly def
  168. % Perhaps some of the values in the following need to be modified
  169. % depending on the WhitePoint value....
  170. /cslabinit mark
  171.   /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind]
  172.   /MatrixABC [1 1 1 1 0 0 0 0 -1]
  173.   /DecodeLMN [
  174.     {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse
  175.      0.9505 mul} bind
  176.     {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse
  177.      } bind
  178.     {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse
  179.      1.0890 mul} bind
  180.   ]
  181. .dicttomark readonly def
  182. /nullpattern1 mark
  183.    /PatternType 1 /PaintType 1 /TilingType 3 /BBox [0 0 0 0]
  184.    /XStep 1 /YStep 1 /PaintProc { }
  185. .dicttomark readonly def
  186. /nullpattern2 nullpattern1 dup length dict copy readonly def
  187.  
  188. % Each entry in the color space dictionary is a procedure of the form
  189. %    <cspace> -proc- <initial-color> <cspace'>
  190. /CSdict 11 dict dup begin
  191.   /DeviceGray { 0 exch } bdef
  192.   /DeviceRGB { [0 0 0] cvx exch } bdef
  193.   /DeviceCMYK { [0 0 0 1] cvx exch } bdef
  194.   /Indexed
  195.    { dup 1 get csset exch pop
  196.      dup 2 index 1 get eq
  197.       { pop }
  198.       { exch 4 array copy dup 1 4 -1 roll put }
  199.      ifelse 0 exch
  200.     } bdef
  201.   /CalGray
  202.    { systemdict /setcolorrendering known
  203.       { 1 get dup /Gamma .knownget
  204.      { dup length 1 add dict .copydict
  205.        dup /DecodeA 4 -1 roll /exp load 2 packedarray cvx put
  206.      }
  207.     if /CIEBasedA exch 2 array astore 0 exch
  208.       }
  209.       { pop //csdevgray csset
  210.       }
  211.      ifelse
  212.    } bdef
  213.   /CalRGB
  214.    { systemdict /setcolorrendering known
  215.       { 1 get dup /Gamma known 1 index /Matrix known or
  216.      { dup length 2 add dict .copydict
  217.        dup /Matrix .knownget { 1 index /MatrixABC 3 -1 roll put } if
  218.        dup /Gamma .knownget
  219.         { [ exch { /exp load 2 packedarray cvx } forall
  220.           ] 1 index /DecodeABC 3 -1 roll put
  221.         }
  222.        if
  223.      }
  224.     if /CIEBasedABC exch 2 array astore [0 0 0] cvx exch
  225.        }
  226.        { pop //csdevrgb csset
  227.        }
  228.       ifelse
  229.     } bdef
  230.   /CalCMYK { pop //csdevcmyk csset } bdef    % not supported yet
  231.   /Lab
  232.    { systemdict /setcolorrendering known
  233.       { 1 get dup length 3 add dict .copydict
  234.     dup /Range .knownget not { [-100 100 -100 100] } if
  235.     [-100 0 null null null null] dup 2 4 -1 roll putinterval
  236.     1 index /RangeABC 3 -1 roll put
  237.     //cslabinit exch copy
  238.     /CIEBasedABC exch 2 array astore [0 0 0] cvx exch
  239.        }
  240.        { (****** Lab color space not supported. ******\n) print flush
  241.      /setcolorspace cvx /undefined signalerror
  242.        }
  243.       ifelse
  244.    } bdef
  245.   /Pattern
  246.    { //nullpattern1 1 index type /nametype ne
  247.       { 1 index length 0 ne { pop //nullpattern2 } if
  248.       } if
  249.      matrix makepattern exch
  250.    } bdef
  251.   /Separation { 1 exch } bdef
  252. end def
  253. /csset            % <cspace> csset <color> <cspace'>
  254.  { dup dup type /nametype ne { 0 get } if //CSdict exch get exec
  255.  } bdef
  256.  
  257. /g { //csdevgray fcput } 1 !
  258. /G { //csdevgray scput } 1 !
  259. /rg { 3 array astore cvx //csdevrgb fcput } 3 !
  260. /RG { 3 array astore cvx //csdevrgb scput } 3 !
  261. /k { 4 array astore cvx //csdevcmyk fcput } 4 !
  262. /K { 4 array astore cvx //csdevcmyk scput } 4 !
  263. /cs { csset fcput } 1 !
  264. /CS { csset scput } 1 !
  265. % We have to break up sc according to the number of operands.
  266. /sc1 { /FillColor gput } 1 !
  267. /SC1 { /StrokeColor gput } 1 !
  268. /sc2 { /FillColor gput } 2 !
  269. /SC2 { /StrokeColor gput } 2 !
  270. /sc3 { /FillColor load astore pop } 3 !
  271. /SC3 { /StrokeColor load astore pop } 3 !
  272. /sc4 { /FillColor load astore pop } 4 !
  273. /SC4 { /StrokeColor load astore pop } 4 !
  274. /sc5 { /FillColor gput } 5 !
  275. /SC5 { /StrokeColor gput } 5 !
  276.  
  277. % ---------------- Color installation ---------------- %
  278.  
  279. % Establish a given color (and color space) as current.
  280. /setfillcolor { FillColor FillColorSpace setgcolor } def
  281. /setstrokecolor { StrokeColor StrokeColorSpace setgcolor } def
  282. /CIdict mark            % only used for Level 1
  283.   /DeviceGray 1   /DeviceRGB 3   /DeviceCMYK 4
  284.   /CIEBaseA 1   /CIEBaseABC 3   /CIEBasedDEF 3   /CIEBaseDEFG 4
  285. .dicttomark def
  286. /Cdict 11 dict dup begin    % <color...> <colorspace> -proc- -
  287.   /DeviceGray { pop setgray } bdef
  288.   /DeviceRGB { pop setrgbcolor } bdef
  289.   /DeviceCMYK { pop setcmykcolor } bdef
  290.   /CIEBasedA
  291.    { dup currentcolorspace eq { pop } { setcolorspace } ifelse setcolor } bdef
  292.   /CIEBasedABC /CIEBasedA load def
  293.   /CIEBasedDEF /CIEBasedA load def
  294.   /CIEBasedDEFG /CIEBasedA load def
  295.   /Indexed /setcolorspace where
  296.    { pop /CIEBasedA load }
  297.    { /setindexedcolor cvx }
  298.   ifelse def
  299.   /Pattern
  300.    { dup currentcolorspace eq { pop } { setcolorspace } ifelse
  301.      dup /Matrix get makepattern setcolor
  302.    } bdef
  303.   /Separation /CIEBasedA load def
  304. end def
  305. /setindexedcolor        % <index> [/Indexed base hival proc|str]
  306.                 %   setindexedcolor - (only used for Level 1)
  307.  { mark 3 -1 roll
  308.    2 index 3 get    % Stack: cspace -mark- index proc|str
  309.    dup type /stringtype eq
  310.     { //CIdict 4 index 1 get 0 get get        % # of components
  311.       dup 4 -1 roll mul exch getinterval { 255 div } forall
  312.     }
  313.     { exec
  314.     }
  315.    ifelse
  316.    counttomark 2 add -2 roll pop
  317.    1 get setgcolor
  318.  } bdef
  319. /setgcolor    % (null | <color...>) <colorspace> setgcolor -
  320.  { 1 index null eq
  321.     { pop pop }
  322.     { dup 0 get //Cdict exch get exec }
  323.    ifelse
  324.  } bdef
  325. /fsexec        % <fillop|strokeop> fsexec -
  326.  {        % Preserve the current point, if any.
  327.     { currentpoint } stopped
  328.     { $error /newerror false put   cvx exec }
  329.     { 3 -1 roll cvx exec moveto }
  330.    ifelse
  331.  } bdef
  332.  
  333. % ---------------- Transformations ---------------- %
  334.  
  335. /cmmatrix matrix def
  336. /cm { //cmmatrix astore concat } 6 !
  337.  
  338. % ---------------- Path creation ---------------- %
  339.  
  340. /m /moveto 2 ~
  341. /l /lineto 2 ~
  342. /c /curveto 6 ~
  343. /h /closepath 0 ~
  344. /v { currentpoint 6 2 roll curveto } 4 !
  345. /y { 2 copy curveto } 4 !
  346. /re
  347.  { 4 2 roll moveto  exch dup 0 rlineto  0 3 -1 roll rlineto  neg 0 rlineto
  348.    closepath
  349.  } 4 !
  350.  
  351. % ---------------- Path painting and clipping ---------------- %
  352.  
  353. /S_ { setstrokecolor /stroke fsexec } bdef
  354. /S { S_ } 0 !
  355. /f { setfillcolor /fill fsexec } 0 !
  356. /f* { setfillcolor /eofill fsexec } 0 !
  357. /n_ { newpath } bdef        % don't allow n_ to get bound in
  358. /n { n_ } 0 !
  359. /s { closepath S_ } 0 !
  360. /B_ { gsave setfillcolor fill grestore S_ } bdef
  361. /B /B_ load 0 !
  362. /b { closepath B_ } 0 !
  363. /B*_ { gsave setfillcolor eofill grestore S_ } bdef
  364. /B* /B*_ load 0 !
  365. /b* { closepath B*_ } 0 !
  366.  
  367. % Clipping:
  368.  
  369. /Wdict 4 dict dup begin
  370. /S_ { gsave setstrokecolor stroke grestore n_ } bdef
  371. /f { gsave setfillcolor fill grestore n_ } 0 !
  372. /f* { gsave setfillcolor eofill grestore n_ } 0 !
  373. /n_ { end clip newpath } bdef
  374. end readonly def
  375. /W { //Wdict begin } 0 !
  376. /W*dict 4 dict dup begin
  377. /S_ { gsave setstrokecolor stroke grestore n_ } bdef
  378. /f { gsave setfillcolor fill grestore n_ } 0 !
  379. /f* { gsave setfillcolor eofill grestore n_ } 0 !
  380. /n_ { end eoclip newpath } bdef
  381. end readonly def
  382. /W* { //W*dict begin } 0 !
  383.  
  384. % ---------------- Images ---------------- %
  385.  
  386. % We mustn't bind these now, since they reference Level 2 operators.
  387. /Is        % <imagedict> Is <imagedict> <datasource>
  388.  { dup /DataSource get string /readstring cvx /currentfile cvx
  389.         % Stack: imagedict string -readstring- -currentfile-
  390.    3 index /FilterProc .knownget
  391.     { dup dup 0 get /ASCIIHexDecode eq exch length 2 eq and
  392.        { pop exch pop /readhexstring cvx exch }
  393.        { exch exec exch exec }
  394.       ifelse
  395.     }
  396.    if 3 1 roll /pop cvx 4 packedarray cvx
  397.  } bdef
  398. /EI { } def    % placeholder, only needed when writing PostScript
  399. % Note that ID* take a dictionary, not separate values;
  400. % ColorSpace must be a name if it has no parameters;
  401. % DataSource is the size of the row buffer in bytes;
  402. % FilterProc is an optional procedure for constructing the decoding filter;
  403. % and ImageMask is required, not optional.
  404. /csimage
  405.  { /setcolorspace where
  406.     { pop dup /ColorSpace get csset setcolorspace pop image }
  407.     { .colorspaceimage }
  408.    ifelse
  409.  } def        % don't bind, because of Level 2
  410. /ID    % <imagedict> ID -
  411.  { Is dup 3 -1 roll dup /ImageMask get
  412.     { setfillcolor dup /Interpolate .knownget not { false } if
  413.        { dup /DataSource 4 -1 roll put /imagemask cvx exec
  414.        }
  415.        {  { /Width /Height /Decode /ImageMatrix }
  416.       { 1 index exch get exch }
  417.      forall pop exch 0 get 0 ne exch
  418.      5 -1 roll imagemask
  419.        }
  420.       ifelse
  421.     }
  422.     { dup /ColorSpace get /DeviceGray eq
  423.       1 index /BitsPerComponent get 8 le and
  424.       1 index /Decode get dup 1 get 1 eq exch 0 get 0 eq and and
  425.       1 index /Interpolate .knownget not { false } if not and
  426.        {  { /Width /Height /BitsPerComponent /ImageMatrix }
  427.       { 1 index exch get exch }
  428.      forall pop 5 -1 roll image
  429.        }
  430.        { dup /DataSource 4 -1 roll put csimage
  431.        }
  432.       ifelse
  433.     }
  434.    ifelse
  435.         % If we were reading with readhexstring,
  436.         % skip the terminating > now.
  437.         % Stack: datasource
  438.    dup type /filetype ne        % array or packedarray
  439.     { dup 2 get /readhexstring eq
  440.        {  { dup 0 get exec read pop (>) 0 get eq { exit } if } loop
  441.        }
  442.       if pop
  443.     }
  444.     { pop
  445.     }
  446.    ifelse EI
  447.  } 1 !
  448. % IDx handles general images.
  449. /IDx    % <imagedict> IDx -
  450.  { Is 1 index /DataSource 3 -1 roll put
  451.    csimage EI
  452.  } 1 !
  453.  
  454. % ---------------- Text control ---------------- %
  455.  
  456. /textbeginpage
  457.  { /TextSpacing 0 def        % 0 Tc
  458.    /TextLeading 0 def        % 0 TL
  459.    /TextRenderingMode 0 def    % 0 Tr
  460.    /TextRise 0 def        % 0 Ts
  461.    /WordSpacing 0 def        % 0 Tw
  462.    /TextHScaling 1.0 def    % 100 Tz
  463.    /TextFont null def
  464.    /Show { showfirst } def
  465.  } bdef
  466.  
  467. % Contrary to the statement in the PDF manual, BT and ET *can* be nested,
  468. % if the CharProc for a Type 3 font does a BT/ET itself.
  469. % Since we always call the CharProc inside a q_/Q_, we simply ensure that
  470. % the text state is saved and restored like the rest of the extended
  471. % graphics state.
  472.  
  473. /settextmatrix
  474.  { TextMatrix concat
  475.    TextHScaling 1 ne { TextHScaling 1 scale } if
  476.    TextRise 0 ne { 0 TextRise translate } if
  477.  } bdef
  478. /settextstate { TextSaveMatrix setmatrix settextmatrix } bdef
  479.  
  480. /BT
  481.  { currentdict /TextMatrix .knownget
  482.     { identmatrix pop }
  483.     { matrix /TextMatrix gput }
  484.    ifelse
  485.    currentdict /TextOrigin .knownget
  486.     { dup 0 0 put 1 0 put }
  487.     { [0 0] cvx /TextOrigin gput }
  488.    ifelse
  489.     { showfirst } /Show gput
  490.    currentdict /TextSaveMatrix .knownget not
  491.     { matrix dup /TextSaveMatrix gput }
  492.    if currentmatrix pop settextmatrix 0 0 moveto
  493.    TextFont dup null eq { pop } { setfont } ifelse
  494.  } bind 0 !
  495. /ET
  496.  { TextSaveMatrix setmatrix
  497.  } bind 0 !
  498. /Tc_ { /TextSpacing gput { showfirst } /Show gput } bdef
  499. /Tc { Tc_ } 1 !
  500. /TL { /TextLeading gput } bind 1 !
  501. /Tr { /TextRenderingMode gput { showfirst } /Show gput } bind 1 !
  502. /Ts { /TextRise gput settextstate } bind 1 !
  503. /Tw_ { /WordSpacing gput { showfirst } /Show gput } bdef
  504. /Tw { Tw_ } 1 !
  505. /Tz { 100 div /TextHScaling gput settextstate } bind 1 !
  506.  
  507. % ---------------- Font control ---------------- %
  508.  
  509. /Tf        % <font> <scale> Tf -
  510.  { dup 1 eq { pop } { scalefont } ifelse
  511.    dup setfont /TextFont gput
  512.  } 2 !
  513.  
  514. % Read a CFF font.
  515. /FRD        % <resdict> <file> FRD -
  516.  { /FontSetInit /ProcSet findresource begin ReadData
  517.  } 2 !
  518.  
  519. % Copy a font, removing its FID.  If changed is true, also remove
  520. % the UniqueID and XUID, if any.  If the original dictionary doesn't have
  521. % the keys being removed, don't copy it.
  522. /.copyfontdict        % <font> <changed> .copyfontdict <dict>
  523.  { 1 index /FID known
  524.    1 index { 2 index /UniqueID known or 2 index /XUID known or } if
  525.     {        % We add 1 to the length just in case the original
  526.         % didn't have a FID.
  527.       exch dup length 1 add dict exch
  528.        {        % Stack: changed newfont key value
  529.      1 index /FID eq 4 index
  530.       { 2 index /UniqueID eq or 2 index /XUID eq or }
  531.      if not { 3 copy put } if pop pop
  532.        }
  533.       forall exch
  534.     }
  535.    if pop
  536.  } bdef
  537.  
  538. % Insert a new Encoding or Metrics into a font if necessary.
  539. % Return a possibly updated font, and a flag to indicate whether
  540. % the font was actually copied.
  541. /.updatefont        % <font> <Encoding|null> <Metrics|null> .updatefont
  542.             %   <font'> <copied>
  543.  { 2 index 4 1 roll
  544.    dup null ne
  545.     { 3 -1 roll true .copyfontdict dup /Metrics 4 -1 roll put exch }
  546.     { pop }
  547.    ifelse
  548.    dup null ne 1 index 3 index /Encoding get ne and
  549.     { exch false .copyfontdict dup /Encoding 4 -1 roll put }
  550.     { pop }
  551.    ifelse exch 1 index ne
  552.  } bdef
  553.  
  554. % ---------------- Text positioning ---------------- %
  555.  
  556. /Td_
  557.  { TextOrigin exch 4 -1 roll add 3 1 roll add
  558.    2 copy /TextOrigin load astore pop moveto
  559.  } bdef
  560. /Td { Td_ } 2 !
  561. /TD { dup neg /TextLeading gput Td_ } 2 !
  562. /T*_ { 0 TextLeading neg Td_ } bdef
  563. /T* { T*_ } 0 !
  564. /Tm
  565.  { TextMatrix astore pop settextstate
  566.    0 0 /TextOrigin load astore pop
  567.    0 0 moveto
  568.  } 6 !
  569.  
  570. % ---------------- Text painting ---------------- %
  571.  
  572. /textrenderingprocs [        % (0 is handled specially)
  573.    { tf } { tS } { tB } { tn }
  574.     % We don't know what the clipping modes mean....
  575.    4 copy
  576. ] readonly def
  577. /setshowstate
  578.  { WordSpacing 0 eq TextSpacing 0 eq and
  579.     { TextRenderingMode 0 eq
  580.        { { setfillcolor show } }
  581.        { { false charpath textrenderingprocs TextRenderingMode get exec } }
  582.       ifelse
  583.     }
  584.     { TextRenderingMode 0 eq
  585.        { WordSpacing 0 eq
  586.           { { setfillcolor TextSpacing exch 0 exch ashow } }
  587.       { TextSpacing 0 eq
  588.          { { setfillcolor WordSpacing exch 0 exch 32 exch widthshow } }
  589.          { { setfillcolor WordSpacing exch TextSpacing exch 0 32 4 2 roll 0 exch awidthshow } }
  590.         ifelse
  591.       }
  592.      ifelse
  593.        }
  594.        { { WordSpacing TextSpacing 2 index
  595.             % Implement the combination of t3 and false charpath.
  596.             % Stack: xword xchar string
  597.        0 1 2 index length 1 sub
  598.         { 2 copy 1 getinterval false charpath
  599.             % Stack: xword xchar string i
  600.           4 copy get 32 eq { add } { exch pop } ifelse 0 rmoveto
  601.           pop
  602.         }
  603.        for pop pop pop pop
  604.        textrenderingprocs TextRenderingMode get exec
  605.      }
  606.        }
  607.       ifelse
  608.     }
  609.    ifelse /Show gput
  610.  } bdef
  611. /showfirst { setshowstate Show } def
  612.  
  613. /Tj { Show } 1 !
  614. /' { T*_ Show } 1 !
  615. /" { exch Tc_ exch Tw_ T*_ Show } 3 !
  616. % TJ expects a mark followed by arguments, not an array.
  617. /TJ
  618.  { counttomark -1 1
  619.     { -1 roll dup type /stringtype eq
  620.        { Show
  621.        }
  622.        { -1000 div
  623.      currentfont /ScaleMatrix .knownget { 0 get mul } if
  624.      0 rmoveto
  625.        }
  626.       ifelse
  627.     }
  628.    for pop
  629. % Adobe implementations don't accept /[, so we don't either.
  630.  } ([) cvn !
  631.  
  632. /tf { setfillcolor currentpoint fill moveto } bdef
  633. /tn { currentpoint newpath moveto } bdef
  634. % For stroking characters, temporarily restore the graphics CTM so that
  635. % the line width will be transformed properly.
  636. /Tmatrix matrix def
  637. /tS
  638.  { setstrokecolor
  639.    currentpoint //Tmatrix currentmatrix TextSaveMatrix setmatrix stroke
  640.    setmatrix moveto
  641.  } bdef
  642. /tB { gsave tf grestore tS } bdef
  643.  
  644. end readonly put        % GS_PDF_ProcSet
  645.  
  646. setglobal
  647.